home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / RSB20326.MRG < prev    next >
Text File  |  1987-03-24  |  1KB  |  31 lines
  1. * Merge this against RBBSSUB2.BAS  Date 3-15-1987  Size 149248 bytes
  2. * ------------[ Created 03-24-1987 00:04:26 ]------------
  3. * REPLACING old line(s) by new
  4. 20720 A$ = "Upload best fits what category (H=help)"
  5.       SUBROUTINE.PARAMETER = 1
  6.       CALL TGET
  7.       IF SUBROUTINE.PARAMETER = -1 THEN _
  8.          B$ = DEFAULT.CATEGORY.CODE$ : _
  9.          GOTO 20722
  10.       IF Q = 0 THEN _
  11.          GOTO 20719
  12.       CALL ALLCAPS (B$(1))
  13.       IF B$(1) = "H" THEN _
  14.          GOTO 20719
  15.       CALL CHKNARY (B$(1),CATEGORY.NAME$(),NUM.CATEGORIES,FOUND)
  16.       IF FOUND>0 THEN _
  17.          Y$ = CATEGORY.CODE$(FOUND) : _
  18.          IF LEN(Y$) > 0 AND LEN(Y$) < 4 AND INSTR(Y$,",")=0 THEN _
  19.             GOTO 20722
  20.       Y$ = ""
  21.       IF NOT LIMIT.SEARCH.TO.FMS THEN _
  22.          STREW.TO$ = DIRECTORY.PATH$ + B$(1) + "." + DIRECTORY.EXTENTION$ : _
  23.          CALL FINDIT (STREW.TO$) : _
  24.          IF NOT OK THEN _
  25. * ------[ first line different ]------
  26.             STREW.TO$ = "" _                                         ' TF032602
  27.          ELSE _                                                      ' TF032602
  28.             GOTO 20722                                               ' TF032602
  29.       CALL QTPUT ("No such category "+B$(1),1)
  30.       GOTO 20719
  31.